home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / Dmod / dmod_P96 / examples / ModeList.d < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.0 KB  |  47 lines
  1. /***********************************************************************
  2. * This is example shows how to use p96AllocModeListTagList()
  3. *
  4. * tabt (Sat Dec 28 03:44:35 1996)
  5. *
  6. * converted by Martin <MarK> Kuchinka, 13.9.2001
  7. ***********************************************************************/
  8.  
  9. MODULE    'picasso96','libraries/picasso96'
  10. MODULE    'exec/lists','utility/tagitem'
  11.  
  12. DEF    P96Base
  13.  
  14. PROC main()
  15.     IF P96Base:=OpenLibrary(P96NAME,2)
  16.         DEF    ml:PTR TO List
  17.         DEFL    width=640,
  18.                 height=480,
  19.                 depth=8
  20.         
  21.         DEF    ra,array=[0,0,0,0]:L
  22.         IF ra:=ReadArgs('Width=W/N,Height=H/N,Depth=D/N',array,NIL)
  23.             IF array[0] THEN width :=^array[0]
  24.             IF array[1] THEN height:=^array[1]
  25.             IF array[2] THEN depth :=^array[2]
  26.             FreeArgs(ra)
  27.         ENDIF
  28.     
  29.         IF ml:=p96AllocModeListTags(
  30.                 P96MA_MinWidth,  width,
  31.                 P96MA_MinHeight, height,
  32.                 P96MA_MinDepth,  depth,
  33.                 TAG_DONE)
  34.             DEF    mn:PTR TO P96Mode
  35.  
  36.             mn:=ml.Head
  37.             WHILE mn.Node.Succ
  38.                 PrintF('%s\n',mn.Description)
  39.                 mn:=mn.Node.Succ
  40.             ENDWHILE
  41.  
  42.             p96FreeModeList(ml)
  43.         ENDIF
  44.         CloseLibrary(P96Base)
  45.     ENDIF
  46. ENDPROC
  47.